home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
kcl.lha
/
cmpnew
/
cmpfun.data
< prev
next >
Wrap
Text File
|
1987-01-17
|
3KB
|
164 lines
#(
#!
(lisp::in-package 'user::compiler)
lisp::princ
compiler::c1princ
compiler::c1
compiler::c2princ
compiler::c2
lisp::terpri
compiler::c1terpri
lisp::apply
compiler::c1apply
compiler::c2apply
compiler::apply-optimize
compiler::c2apply-optimize
lisp::funcall
compiler::c1funcall
lisp::rplaca
compiler::c1rplaca
compiler::c2rplaca
lisp::rplacd
compiler::c1rplacd
compiler::c2rplacd
system::memq
compiler::c1memq
lisp::member
compiler::c1member
compiler::member!2
compiler::c2member!2
lisp::assoc
compiler::c1assoc
compiler::assoc!2
compiler::c2assoc!2
lisp::get
compiler::c1get
compiler::c2get
lisp::list
(compiler::c1list-condition . compiler::c1list)
compiler::c1conditional
lisp::list*
(compiler::c1list-condition . compiler::c1list*)
lisp::nth
(compiler::c1nth-condition . compiler::c1nth)
lisp::nthcdr
(compiler::c1nthcdr-condition . compiler::c1nthcdr)
system::rplaca-nthcdr
compiler::c1rplaca-nthcdr
compiler::rplaca-nthcdr-immediate
compiler::c2rplaca-nthcdr-immediate
system::list-nth
compiler::c1list-nth
compiler::list-nth-immediate
compiler::c2list-nth-immediate
80
compiler::*princ-string-limit*
1
0
2
compiler::var
(compiler::global lisp::special)
compiler::call-global
compiler::*value-to-go*
compiler::trash
compiler::*compiler-output1*
#\\
#\"
#\Newline
compiler::location
:type
lisp::character
lisp::string
compiler::vv
(compiler::global lisp::special)
compiler::call-lambda
compiler::*vs*
compiler::cvar
compiler::*next-cvar*
compiler::vs
compiler::*base-used*
compiler::*safe-compile*
compiler::args-pushed
"APPLY passes too many arguments to LAMBDA expression."
lisp::let
:kind
compiler::lexical
:ref
compiler::*unwind-exit*
compiler::*clink*
compiler::*ccb-vs*
compiler::*compiler-check-args*
"ck_larg_at_least"
"ck_larg_exactly"
compiler::*inline-blocks*
(lisp::t lisp::t)
(lisp::t lisp::t)
lisp::eq
lisp::eql
:test
('lisp::eq)
(#'lisp::eq)
(lisp::t lisp::t)
compiler::jump-true
compiler::jump-false
compiler::jump
('lisp::eq)
(#'lisp::eq)
(lisp::t lisp::t)
lisp::car
3
(lisp::t lisp::t lisp::t)
(lisp::t lisp::t)
lisp::cadr
compiler::*space*
lisp::cons
7
lisp::caddr
lisp::cadddr
4
lisp::cddddr
5
6
lisp::cdr
lisp::cddr
lisp::cdddr
10
(lisp::t lisp::t lisp::t)
(lisp::t lisp::t)
compiler::c1apply-optimize
compiler::c1list-condition
compiler::c1list
compiler::c1list*
compiler::c1nth-condition
compiler::c1nth
compiler::c1nthcdr-condition
compiler::c1nthcdr
compiler::make-info
compiler::too-few-args
compiler::too-many-args
compiler::c1nil
compiler::c1expr*
compiler::wt1
compiler::unwind-exit
compiler::c2call-global
compiler::add-object
compiler::c1funob
compiler::copy-info
compiler::c1args
compiler::save-funob
compiler::c2expr*
compiler::vs-push
compiler::c2funcall
compiler::cmperr
compiler::make-var
compiler::wt-var
compiler::wt-vs
compiler::c2bind
compiler::c2expr
compiler::add-info
compiler::inline-args
compiler::close-inline-blocks
compiler::c1expr
)